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SQL> cl scr 



SQL> DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp; 

6 BEGIN 

7 FOR V_EmpData IN EmpCursor 

8 LOOP 

9 DBMS_OUTPUT . PUT_LINE ( V_EmpData . Ename ) ; 

10 END LOOP; 

11 END; 

12 / 

KING 
BLAKE 
CLARK 
JONES 
MARTIN 
ALLEN 
TURNER 
JAMES 
WARD 
FORD 
SMITH 
SCOTT 
ADAMS 
MILLER 

PL/SQL procedure success 
SQL> ED 

Wrote file afiedt. 

1 DECLARE 

2 CURSO 

3 IS 

4 SELECT 

5 }P 

6 

7 IOPeV EmpCursor; 

V_EmpData IN EmpCursor 

Qtoop 

(^b/ 4 UO Hr ^DBMS_OUTPUT.PUT_LINE (V_EmpData . Ename ) ; 




O 



% rl END LOOP; 

12* END; 

SQL> / 

DECLARE 
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ERROR at line 1: 



ORA-06511 
ORA- 06512 
ORA- 06512 



PL/SQL: cursor already open 
at line 4 
at line 8 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp; 

6 BEGIN 

7 FOR V_EmpData IN EmpCursor 

8 LOOP 

9 OPEN EmpCursor; 

10 DBMS_OUTPUT . PUT_LINE (V_EmpData . Ename )' 

11 END LOOP; 

12* END; 

SQL> / 

DECLARE 

ERROR at line 1: 

ORA- 06511 : PL/SQL: 

ORA-06512: at line 
ORA-06512: at line 



SQL> ED 

Wrote file afiedt, 






or 



FORW_EmpData IN EmpCursor 

CJ bBMS_OUTPUT.PUT_LINE (V_EmpData . Ename ) ; 
“uo 1 " 1 END LOOP; 

rl CLOSE EmpCursor; 

12* END; 

SQL> / 

KING 
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BLAKE 

CLARK 

JONES 

MARTIN 

ALLEN 

TURNER 

JAMES 

WARD 

FORD 

SMITH 

SCOTT 

ADAMS 

MILLER 

DECLARE 




ERROR at line 1: 
ORA-OlOOl: invalid cursor 
ORA-06512: at line 11 



SQL> cl scr 

SQL> DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp; 

6 BEGIN 

7 FOR EmpCursor Index 

8 LOOP 

9 DBMS_OUTPUT . PUT 
' | | EmpCursor Index . 

10 END LOOP; 

11 END; a 

12 7 +,A 

Record Numtrfr 'k^_^ 4 %yING 
Record NumbeltfV}2 SLAKE 





# 

ptur s o r 



cord Number : 'll EmpCursor%ROWCOUNT | | ' 




Record N 
Record NMDer 
Recoil Wwj#r 
Recofd Number 
R^^^taWumb e r 
Xe&ojpi Number 
Ncord Number 
rcord Number 
^Record Number 
Record Number 
Record Number 



CLARK 
JONES 
MARTIN 

6 ALLEN 

7 TURNER 

8 JAMES 

9 WARD 

10 FORD 

11 SMITH 

12 SCOTT 

13 ADAMS 
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Record Number : 14 MILLER 



PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp; 

6 BEGIN 

7 FOR EmpCursor Index IN EmpCursor ♦ 

8 LOOP 

9 DBMS_OUTPUT.PUT_LINE ( 'Record 
' | | EmpCursorlndex . Ename) ; 

10 IF EmpCursor %ROWCOUNT = 6 

11 THEN 

12 EXIT; 

13 END IF; 

14 END LOOP; 

15* END; 

SQL> / 





Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 



1 KING 

2 BLAKE 

3 CLARK 

4 JONES 

5 MARTIN. 

6 ALLEN 



u. 



A. w 















cx 



PL/SQL procedure s 

SQL> ED ^ 

Wrote file afi^drn 



ly completed. 






buf 

DECLARE*): 1 » 

CURSOR EmpCursor 

FR(^ Emp; 



A6 vrjtimit NUMBER (2) := SGiveLimit 

X 0feEGIN 

l * 1 1 8 FOR EmpCursorlndex IN EmpCursor 



071 



9 

10 



LOOP 

DBMS_OUTPUT . PUT_LINE ( ' Record Number 



' | | EmpCursor%ROWCOUNT ! | ' 



' ! | EmpCursorlndex . Ename) ; 

11 IF EmpCursor %R0WC0UNT = V_Limit 
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12 THEN 

13 EXIT; 

14 END IF; 

15 END LOOP; 

16* END; 

SQL> / 

Enter value for givelimit: 1 
BEGIN 

ERROR at line 7: 

ORA- 06550 : 

PLS-00103 : 
following : 

*&=-+; < / > at in is mod remainder not rem 
<an exponent (**)> <> or != or ~= >= <= <> and or li 
LIKE4_ LIKEC_ between | | multiset member SUBMULTIS 
The symbol was substituted for "BEGIN" to co 



SQL> ED 

Wrote file afiedt.buf 



line 7, column 1: 

Encountered the symbol "BEGIN" when expectinc 



10 



DECLARE 

CURSOR EmpCursor 
IS 

SELECT * 

FROM Emp; 

V_Limit NUMBER (2) :=*& 

BEGIN 

FOR EmpCursor Index 

LOOP , 

DBMS_OUTPUT . P^IlineJ' Record Number 




' | | EmpCursorlndex . M(ma ; 

11 IF EmpCurso J%ROW^0UNT = V_Limit 

12 THEN 

13 EXIT; 

14 END 

15 END. 

! 6* «N 

sql> y++ + 

Entef value for givelimit : 1 
umber : 1 KING 



| | EmpCursor %ROWCOUNT | | ' 





/SQL procedure successfully completed. 
QL> / 

Enter value for givelimit: 2 
Record Number : 1 KING 
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Record Number : 2 BLAKE 



PL/SQL procedure successfully completed. 
SQL> / 

Enter value for givelimit: 3 



Record Number 
Record Number 
Record Number 



1 KING 

2 BLAKE 

3 CLARK 



PL/SQL procedure successfully completed. 



SQL> / 

Enter value for 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 



givelimit 



KING 

BLAKE 

CLARK 

JONES 

MARTIN 



PL/SQL procedure successfully completed 



SQL> / 

Enter value for 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 



Nu 



mbrfr^'m 



givelimit 

1 KING 

2 BLAKE 

3 CLARK 

4 JONES 

5 MARTI 

6 ALLEN 

7 T^N^^i# 

10 FQttc 

\ SMITH 




SCOTT 



Record inuill^ki. 

Record Numbel^:^l 3 mDAMS 
Record N^berV' 14 MILLER 

ire successfully completed. 



^ Pa 

PL/SQk~.pff4*sfedui 

JC + -> 



scr 



C? 



SCL> ED 

Wrote file af iedt . buf 



DECLARE 
V RowCount 



NUMBER (4) ; 
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3 CURSOR EmpCursor 

4 IS 

5 SELECT * 

6 FROM Emp; 

7 BEGIN 

8 DBMS_OUTPUT.PUT_LINE (RPAD (LP AD ( 'Employees Information', 49, 

80, '*')); 

9 DBMS_OUTPUT.PUT_LINE (RPAD ( '- ' , 80,'-')); ark 

10 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8)|| RPAD ( ' Ename ' , 

12 ) | | RPAD ( ' Job ' , 12)| I RPAD ( ' Deptno ' , 8 ) | | RPAD ( ' Mgr ' , 4 +-j_ 

10)| | RPAD ( 'Hiredate' , 12) | | RPAD ( ' Sal ' , 12 ) | | RPAD (' Comm' , l&f) ^ 

11 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 8 0,'-')); 

1 2 FOR EmpCursor Index IN EmpCursor V ,jT 

13 LOOP . \r 

14 V_RoWCount := EmpCursor%ROWCOUNT ; j. % + 

15 DBMS_OUTPUT . PUT_LINE (RPAD (EmpCursor Index . Empn%, |,g) + -> 

| | RPAD (EmpCursor Index . Ename, 12 ) | | RPAD (EmpCursor Job, 









- ■: 



!)WPi?t) (EmpCursor Index . MGR, 




(EmpCursorlndex . Comm, 



12) | | RPAD (EmpCursorlndex . Deptno, 8) | |NVL(T0_C1 
1 0 ) ) , ' No Manager ' ) | | RPAD (EmpCursorlndex . Hirtedi 
12 ) ! | RPAD (EmpCursorlndex. Sal, 12) | | NVL (TO_\hSbI 
12) ) , ' — NA— ' ) ) ; t^\ + - 

16 END LOOP; \ VT p 4 

17 DBMS_OUTPUT.PUT_LINE (V_RowCountlH*%RdVf Processed So Far. . . ' ) ; 

1 8 * END ; + +. 

SQL> / 

~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k ~k "kj? Q 

Info rmat k ~k k k k k 



\ 



EmpNo 

Comm 






rv 



Ename 



Job 




V 

Deptno Mgr 



Hiredate 



Sal 







d 




o 

844 



Jd-rH MART I N 

V 

ALLEN 
TURNER 



PRESIDENT 

MANAGER 

MANAGER 

MANAGER 

SALESMAN 

SALESMAN 

SALESMAN 



10 

30 

10 

20 

30 

30 

30 



No Managerl7-NOV-81 
7839 01 -MAY- 81 



7839 

7839 

7698 

7698 

7698 



09-JUN-81 
02 -APR- 81 
28-SEP-81 
2 O-FEB-8 1 
08-SEP-81 



5000 

2850 

2450 

2975 

1250 

1600 

1500 



0 
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PL/SQL procedure successfully completed. 
SQL> cl scr 



SQL> DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp 

6 ORDER BY Sal DESC; 

7 BEGIN ▼ ^ 

8 FOR V_EmpData IN Emp&i rao t). 4 J 




9 LOOP JnL ^ 

10 DBMS_OUTPUT . PUT_LINlfr Rlpk No 



' | | EmpCursor%ROWCOUNT | | ' 
' I I V_EmpData . Ename | | ' |^ito + -S^lary of ' | | V_EmpData . Sal ) ; 



11 EXIT WHEN Emp3faso f% j bwCOUNT = 5; 

12 END LOOP; ,+H ~‘ 

13 END; a 

14 / 

Rank No : T^K ^ffG Salary of 5000 

Rank No : 2"* : ^COjT With Salary of 3000 
Rank No • 3 F^TO With Salary of 3000 
Rank <Mo JONES With Salary of 2975 

Rank Nit- WtSit BLAKE With Salary of 2850 



c? 



CT ' 



Procedure successfully completed. 



L> ED 

ote file afiedt.buf 

1 DECLARE 

2 CURSOR EmpCursor 
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10 

11 

12 

13 

14 

15 



IS 

SELECT 
DENSE_RANK ( ) 

OVER 

( 

ORDER BY Sal DESC 
) Rank, Ename, Sal 
FROM Emp 

ORDER BY Sal DESC; 

BEGIN 

FOR V_EmpData IN EmpCursor 
LOOP 

DBMS_OUTPUT . PUT_LINE ( ' Rank No 



'liv. 


.EmpData 


.Enamel | ' With Salary of 


16 


EXIT WHEN V_EmpData . Rank = 


5; 


17 


END 


LOOP; 




18* 


END, 








SQL> 


/ 








Rank 


No 


1 


KING With Salary of 


5000 


Rank 


No 


2 


SCOTT With Salary of 


3000 


Rank 


No 


2 


FORD With Salary of 


3000 


Rank 


No 


3 


JONES With Salary of 


2975 


Rank 


No 


4 


BLAKE With Salary of 


285ft 


Rank 


No 


5 


CLARK With Salary of 


2450 



a V 




| | V_EmpData . Rank 
I | V_EmpData . Sai) 



PL/SQL procedure successfully 




SQL> BEGIN 



& 



2 

Are 

3 

4 

5 

6 
7 



DBMS. 

) 



OUTPUT. PUT LI 






partments Available in Our Organization 



FOR DeptRecord INi^1+ + J-C* 



( 



Off 




SELECT * 

FROM Dept a 

8 L00P 

9 DBMS_OCTffUi. PCfT_LINE (' Department ' | | DeptRecord . Deptno | | 
' | | DeptRecordN^name | | ' Located At ' | | DeptRecord. Loc) ; 

10 «NDfJfc)QP ; 

11 

y a 

Tli^^^^rfrtments Available in Our Organization Are... 
‘efcftment 10 Named ACCOUNTING Located At NEW YORK 
-partment 20 Named RESEARCH Located At DALLAS 
Apartment 30 Named SALES Located At CHICAGO 
epartment 40 Named OPERATIONS Located At BOSTON 



Named 



PL/SQL procedure successfully completed. 
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SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 V_EmpCount NUMBER (2) 

3 V_Sum Invest NUMBER (7) 

4 V_Avg Invest NUMBER (7, 

5 BEGIN 

6 DBMS_OUTPUT . PUT 
Are 

7 FOR DeptRecord IN 

8 ( 

9 SELECT * 

10 FROM Dept 

11 ) 

12 LOOP 

13 SELECT 

14 COUNT (*), SUM (Sal), AVG(Sal) INTO 

15 V_EmpCount, V_SumInvest, V_AvgIi 

1 6 FROM Emp 

1 7 WHERE Deptno = DeptRecord . Dept no ; 

18 DBMS_OUTPUT . PUT_LINE ( ' Depai\ifft|t ' | | DeptRecord . Deptno | | ' Named 



LINE ( ' The Departments Available in 




zation 




I | DeptRecord . Dname | | 



Located eptRecord . Loc | | ' With 

| | NVL (V_SumInvest, 



' | | V_EmpCount | | ' Employees ' f J 'T^JJrty^sted With 
Averaging ' | I NVL (V Avcrlnves t.^ *11^ 

19 END LOOP; 



0) I I 



XV 



bte^Ln Our Organization Are. . . 

^BUNTING Located At NEW YORK With 3 Employees 



Invested 



20* END; 

SQL> / 

The Departments Ava 
Department 10 Namec 

Invested With 8750 Av#Caging 2916.67 

Department 2 0 l^amfed RESEARCH Located At DALLAS With 5 Employees 
With 10875 2175 

Department NineJ SALES Located At CHICAGO With 6 Employees Invested 
With 9 4 00 AveX^ing 1566 . 67 

Deparfcm gjnp 4 0 Named OPERATIONS Located At BOSTON With 0 Employees 
Inve§J^i%iirch 0 Averaging 0 



rocedure successfully completed. 




SOL> cl scr 



<3 



QL> ED 
Wrote file afiedt.buf 
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1 DECLARE 

2 V_Dname Dept . Dname%TYPE; 

3 V_Loc Dept . Loc%TYPE; 

4 BEGIN 

5 FOR EmpRecord IN 

6 ( 

7 SELECT Ename, Deptno 

8 FROM Emp 

9 ORDER BY Deptno 

10 ) 

11 LOOP 

12 SELECT Dname, Loc INTO V_Dname, _ 

13 FROM Dept 

14 WHERE Deptno = EmpRecord . Deptno; 

15 DBMS_OUTPUT.PUT_LINE (EmpRecord. Ename | ! 

' | | V_Dname | | ' ' | | V_Loc) ; 

16 END LOOP; 

17* END; 

SQL> / 

KING 10 ACCOUNTING NEW YORK 
CLARK 10 ACCOUNTING NEW YORK 
MILLER 10 ACCOUNTING NEW YORK 
ADAMS 20 RESEARCH DALLAS 
SCOTT 20 RESEARCH DALLAS 
SMITH 20 RESEARCH DALLAS 
FORD 20 RESEARCH DALLAS 
JONES 20 RESEARCH DALLAS ♦ 

WARD 30 SALES CHICAGO 
JAMES 30 SALES CHICAGO 
ALLEN 30 SALES CHICAGO 
MARTIN 30 SALES CHIC. 

BLAKE 30 SALES CHI^G 
TURNER 30 SALES CH 



uccessfully completed. 






PL/SQL procedu 
SQL> cl sc 
SQL> JjD 

Wrot^iujj&H^Lf iedt . buf 




BSCLARE 

if 4 fo -RowCount NUMBER (4); 
xOl 3^ BEGIN 

% t M DBMS_OUTPUT.PUT_LINE (RPAD (LP AD ( 'Employees Information', 49, '*'), 

O 0 , '*')); 

5 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 80,'-')); 
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6 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8 )|| RPAD ( ' Ename ' , 

12) ! |RPAD ( ' Job' , 12)| | RPAD ( ' Deptno ' , 8 ) | | RPAD ( ' Mgr ' , 

10) | | RPAD ( ' Hiredate ' , 12 ) | | RPAD ( ' Sal ' , 12) | | RPAD (' Comm' , 10)); 

7 DBMS_OUTPUT.PUT_LINE (RPAD ( , 80,'-')); 

8 FOR EmpCursor Index IN 

9 ( 

10 SELECT * 

1 1 FROM Emp 

12 ) 

13 LOOP 

14 DBMS_OUTPUT . PUT_LINE (RPAD (EmpCursor Index . Empno, 8 ) 

| | RPAD (EmpCursorlndex . Ename, 12) | | RPAD (EmpCursor Index . J> 

12) | | RPAD (EmpCursorlndex. Deptno, 8 ) | | NVL (TO_CHAR (RPAD (Em^ur^llndex . MGR, 
10)), ' No Manager ' ) | | RPAD (EmpCursorlndex . Hiredate, ♦ 

12) | | RPAD (EmpCursorlndex. Sal, 12) | | NVL (TO_CHAR (RP 4 D (ji^ursorlndex . Comm, 
12) ) , '-NA-') ) ; 

15 END LOOP; 

16* END; 

SQL> / 

***^ii*^*^i^r^r**^^***^^^i^^*ig m p loyCCG 
j rm at ion^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 






,c^ 



EmpNo 

Comm 



Ename 



Job 



Dept 




Hiredate 






7839 
-NA- 
7698 
-NA- 
7782 
-NA- 
7566 
-NA- 
7654 
1400 
7499 
300 ^ 

7844 _ - 

• ,t> 



CF 



902 

-NA- 



KING 
BLAKE 
CLARK 
JONES 
ma: 

LEN 
ER 
JAMES 
WARD 
FORD 






PRESIDE 
MANA 
MANAGER 
MUGGER 
SALESMAN 
SALESMAN 
SALESMAN 
CLERK 
SALESMAN 
ANALYST 



¥f,F 10 

\GER 



Sal 



10 


No Managerl7-NOV-81 


5000 


30 


7839 


01 -MAY- 81 


2850 


10 


7839 


09-JUN-81 


2450 


20 


7839 


02 -APR- 81 


2975 


30 


7698 


2 8 -SEP-8 1 


1250 


30 


7698 


2 O-FEB-8 1 


1600 


30 


7698 


08-SEP-81 


1500 


30 


7698 


03-DEC-81 


950 


30 


7698 


22-FEB-81 


1250 


20 


7566 


03-DEC-81 


3000 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



7369 

-NA- 


SMITH 


CLERK 


20 


7902 


17-DEC-80 


7788 

-NA- 


SCOTT 


ANALYST 


20 


7566 


09-DEC-82 


7876 

-NA- 


ADAMS 


CLERK 


20 


7788 


12- JAN- 83 


7934 

-NA- 


MILLER 


CLERK 


10 


7782 


23- JAN-82 



800 



3000 



1100 



PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> DECLARE 

2 V_Empno Emp . Empno%TYPe; 

3 V_Ename Emp . Ename%TYPE; 

4 V_Sal Emp . Sal%TYPE; 

5 V_Desig Emp . Job%TYPE; 

6 CURSOR EmpCursor 

7 IS 

8 SELECT Empno, Ename, Sal, Job 

9 FROM Emp; 

BEGIN 

OPEN EmpCursor; 

LOOP 

FETCH EmpCursor INTO V_Empn£> ,1^A/j£name , 

EXIT WHEN EmpCursor%ROW$OtJjp^f’l 0 ; 

DBMS OUTPUT .PUT LINEl' Bj^ Jber : ' ! | EmpCursor%ROWCOUNT | | 




V_Sal, V_Desig; 






>ADW 3 

# 



10 
11 
12 

13 

14 

15 

' | | RPAD (V_Empno, 12) | |RPA^#^^ne, 12) | | RPAD (V_Desig, 12) | | LPAD (V_Sal, 

10 ) ) ; 

16 END LOOP; 

17 CLOSE EmpCursf 

18 END; 

19 / 

Row Number : 1 . 

Row Number 
Row Number 
Row Numbe 
Row Nt jp* : 5 
6 

amb^r : 7 




a*. ' 


k 7839 


KING 


PRESIDENT 


5000 


^ 4.7 6 98 


BLAKE 


MANAGER 


2850 




>7782 


CLARK 


MANAGER 


2450 




7566 


JONES 


MANAGER 


2975 




7654 


MARTIN 


SALESMAN 


1250 




7499 


ALLEN 


SALESMAN 


1600 




7844 


TURNER 


SALESMAN 


1500 




7900 


JAMES 


CLERK 


950 




7521 


WARD 


SALESMAN 


1250 


0 


7902 


FORD 


ANALYST 


300 



L/ SQL procedure successfully completed. 



SQL> cl scr 
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SQL> CREATE TABLE BigHeads 
2 ( 

3 Ename VARCHAR (20), 

4 Salary NUMBER (6) 

5 ) ; 

Table created. 

SQL> SELECT * FROM BigHeads; 



no rows selected 




SQL> ED 
Wrote file 



af iedt . buf 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
24* 




DECLARE 

V_Number NUMBER (2) := &GiveNumber; 

V_Ename Emp . Ename%TYPE; 

V_Sal Emp . Sal%TYPE; 

CURSOR EmpCursor 
IS 

SELECT Ename, Sal 
FROM Emp 

WHERE Sal IS NOT NULL 
ORDER BY Sal DESC; 

BEGIN ♦_ 

DELETE BigHeads; ^ 

COMMIT; 

OPEN EmpCursor; _ 

FETCH EmpCursor ■ Wlname, V_Sal ; 

WHILE EmpCurs^^RO Ky JNT <= V_Number AND EmpCursor%FOUND 
LOOP hrt rH | 

INSERT INTOiBigH^Has (Ename, Salary) 

VALUES (V gn%e, V_Sal); 

FETCH ^mfc^^Sbr INTO V_Ename, V_Sal; 

END LOOttJ 4 






CLO 

w 




Empfursor; 



SQL>f/ > 

O E^^^^mlue for givenumber: 5 

Jj/SQL procedure successfully completed. 
QL> SELECT * FROM BigHeads; 



ENAME 



SALARY 
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KING 


5000 


SCOTT 


3000 


FORD 


3000 


JONES 


2975 


BLAKE 


2850 


SQL> CREATE 


TABLE BigHeadsl 



( 



Ename VARCHAR(20) 
Salary NUMBER (6) 



) 



Table created. 



SQL> SELECT * FROM BigHeadsl; 



no rows selected 



SQL> ED 
Wrote file 



af iedt . buf 



DECLARE 

V_Number NUMBER ( 2 ) : = &GiveNumber; "%■ 

V_Ename Emp . Ename%TYPE; 

V_Cur rent Sal Emp . Sal%TYPE;^ ^ 




♦ 












3 




V_LastSal Emp . Sal%TYPE ; 

V_Job Emp. Job%TYPE; 

CURSOR EmpCursor 
IS C * 

SELECT Ename, Sal-f 44 J|pSt-C t 
FROM Emp J"* 4 "* f 

WHERE Sal IS NOfl’ijULL 
ORDER BY Sal DESOf 
BEGIN ^ \ 

DELETEg^l^^dsl ; 

commit ptfl -*• 

OPEN. Empjfrsor; 

pi® EmpCursor INTO V_Ename, V_Cur rent Sal, V_Job; 
,l!i|I*^mpCursor%ROWCOUNT <= V_Number AND EmpCursor%FOUND 
LOOK 

^%.\»#ERT INTO BigHeadsl (Ename, Salary) 

2(>ALUES (V_Ename, V_CurrentSal ) ; 

LastSal := V_CurrentSal; 

3 FETCH EmpCursor INTO V_Ename, V_CurrentSal, V_Job; 

24 IF V_LastSal = V_CurrentSal 

25 V_Number := V_Number + 1; 

26 END IF; 



10 

11 

12 

13 

14 

15 

16 

17 

18 
19 



THEN 
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27 END LOOP; 

28 CLOSE EmpCursor; 

29 COMMIT; 

30* END; 

SQL> / 

Enter value for givenumber: 5 

PL/SQL procedure successfully completed. 



SQL> SELECT * FROM BigHeadsl; 



ENAME 



SALARY 



KING 

SCOTT 

FORD 

JONES 

BLAKE 

CLARK 

6 rows selected. 
SQL> cl scr 



5000 

3000 

3000 

2975 

2850 

2450 




0 



& 






<3 




10 

11 






tio 

■& 



SQL> CREATE TABLE PayRollDept: 

2 AS 

3 SELECT 
Empno, 

Ename, 

Job, ~ 

HireDate, + J-C* 

TRUNC (MONTHS BEtWJ^N ( SYSDATE , HireDate) 
Sal Basic, 

Comm Commissi* 

Sal + w* (Comm, 0 ) GrossSal 

12 FROM ^ 

13 WHERE 



Tablevcife^ed . 

SQL>^ED 7*4 

Wjpttee'+fi^le af iedt . buf 

1^ CREATE TABLE PayRollDept 2 0 



Q 



AS 

3 SELECT 

4 Empno, 

5 Ename, 



/ 12) EmpExpr, 
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6 Job, 

7 HireDate, 



8 TRUNC (MONTHS_BETWEEN (SYSDATE, HireDate) 

9 Sal Basic, 

10 Comm Commission, 

11 Sal + NVL ( Comm, 0) GrossSal 

12 FROM Emp 
13* WHERE 1=2 

SQL> / 

Table created. 

SQL> ED 

Wrote file afiedt.buf 




1 CREATE TABLE PayRollDept30 

2 AS 

3 SELECT 

4 Empno, 

5 Ename, 

6 Job, 

7 HireDate, 

8 TRUNC (MONTHS_BETWEEN (SYSDAT 

9 Sal Basic, 

10 Comm Commission, 

11 Sal + NVL (Comm, 0) Gro 

12 FROM Emp 
13* WHERE 1=2 

SQL> / 

Table created. 



te) / 12) EmpExpr, 



SQL> 

Wrot 



e file af iedt . buf+pn 

ayRollDept40 





o 



4 + + 

5 a, + + Bwtie , 

6 1 ,t>ob, 

HireDate, 

I f * TRUNC (MONTHS_BETWEEN (SYSDATE, 
" Sal Basic, 

*0 Comm Commission, 

11 Sal + NVL (Comm, 0) 

12 FROM Emp 
13* WHERE 1=2 



HireDate) / 12) EmpExpr, 



GrossSal 
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SQL> / 



Table created. 

SQL> SELECT * FROM PayRol IDept 1 0 ; 
no rows selected 

SQL> SELECT * FROM PayRol IDept 2 0 ; 
no rows selected 

SQL> SELECT * FROM PayRollDept30; 
no rows selected 

SQL> SELECT * FROM PayRol IDept 4 0 ; 
no rows selected 
SQL> ED 

Wrote file afiedt.buf 



DECLARE 

V_EmpExpr PayRol IDeptIO . Emp^^^TYPE; 
V_BasicSal PayRollDeptlO .B^\%%TPE; 
V_Commission PayRollDepUl ( 




*tission%TYPE; 

V_GrossSal PayRollDeut 1$ .'%o#sSal%TYPE; 
V_PayRollDeptlO Pa#Cl^)tlO%ROWTYPE; 
V_PayRollDept2 0 Prffeo%J.Dept2 0%ROWTYPE; 
V_PayRollDept30 lDept30%ROWTYPE; 

V_PayRollDepti^ E faf kollDept40%RQWTYPE; 
V_PayRollDeptfttf^%us NUMBER (3) ; 
V_PayRollDeBt20S4«tus NUMBER (3) ; 
V_PayRoll4|pt30Status NUMBER (3); 
V_PayBf? l fi t [JepTO OStatus NUMBER (3); 
V_Table^aaus tSIUMBER (2) ; 

CU RSOR EMjroeptwisePayroll 

IF ROM* Emp 
BiWER BY Deptno ; 

if 2 €j^- CursorSubType EmpDeptwisePayroll%ROWTYPE ; 

21 :1 begin 
72 BEGIN 

23 SELECT COUNT (*) INTO V_TableStatus 

24 FROM PayRollDeptlO; 

25 IF V TableStatus <> 0 THEN 



10 

11 

12 

13 

14 

15 

16 

17 

18 
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26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 



DELETE FROM PayRol IDept 1 0 ; 

END IF; 

SELECT COUNT (*) INTO V_TableStatus 
FROM PayRollDept20; 

IF V_T able St at us <> 0 THEN 

DELETE FROM PayRol lDept2 0 ; 

END IF; 

SELECT COUNT (*) INTO V_TableStatus 
FROM PayRollDept30 ; 

IF V_T able St at us <> 0 THEN 

DELETE FROM PayRollDept30 ; 

END IF; 

SELECT COUNT (*) INTO V_TableStatus 
FROM PayRollDept40; 

IF V_TableStatus <> 0 THEN 

DELETE FROM PayRol IDept 4 0 ; 

END IF; 

COMMIT; 

END; 

IF NOT EmpDeptwisePayroll%ISOPEN 
THEN 

OPEN EmpDeptwisePayroll ; 

END IF; 

FETCH EmpDeptwisePayroll INTO V_ 

WHILE EmpDeptwisePayroll%F(JMfttk 
LOOP ^ 

IF V_CursorSubType . DepAjoi^t*i'5 1 ' 

THEN & 

Dtl(J«^^pr := TRUNC ( (MONTHS_BETWEEN (SYSDATE, 




)rSubType; 



V_CursorSubType . Sal + 



V_PayRollDept ^ „ 

V_CursorSubType . HireDatel^+j/ ) ; 

55 V_PayRollD^tiiP't-t^rossSal : = 

NVL (V CursorSubTyp#VComi t, f t) ) ; 

INSERT 

PayRckLlDe^KO 

(Erty^nX. Ename, Job, HireDate , EmpExpr , Basic, Commission, 

(Mirs orSubType . Empno, V_CursorSubType . Ename, 

Type. Job, V_CursorSubType . HireDate, V_PayRollDeptlO . EmpExpr, 
ffype.Sal, V_CursorSubType . Comm, V_PayRollDeptlO . GrossSal) ; 



Cf 



56 

57 

58 

GrossSal ) 

59 

60 

V_Curteo 
V_Cur£&jj&i 
61 I EIJE 

<ftr 

65 V_PayRollDept2 0 . GrossSal 
NVL ( V_CursorSubType . Comm, 0); 

66 INSERT INTO 



IF V_CursorSubType . Deptno = 20 
THEN 

V_PayRollDept2 0 . EmpExpr := 

NC( (MONTHS_BETWEEN (SYSDATE, V_CursorSubType . HireDate) 



/ 12 )) 



:= V_CursorSubType . Sal + 
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Job, HireDate, EmpExpr, Basic, 




Job, HireDate, 




r, Basic, 



o 



67 PayRollDept20 

68 (Empno, Ename, 

Commission, GrossSal) 

69 VALUES 

70 (V_CursorSubType . Empno, V_CursorSubType . Ename, 
V_CursorSubType . Job, V_CursorSubType . HireDate, V_PayRollDept2 0 . Emp: 
V_CursorSubType . Sal , V_CursorSubType . Comm, V_PayRollDept20 . GrossSa^) 

71 ELSE 

72 IF V_CursorSubType . Deptno = 30 

73 THEN 

74 V_PayRollDept3 0 . EmpExpr := 

TRUNC ( (MONTHS_BETWEEN (SYSDATE, V_CursorSubType . HireDate)^ 

7 5 V_PayRollDept3 0 . GrossSal : = V_CursorSubWpe +J 3fel + 

NVL ( V_CursorSubType . Comm, 0) ; ♦ 

76 INSERT INTO ' ^ 

77 PayRollDept30 

78 (Empno, Ename, 

Commission, GrossSal) 

79 VALUES 

8 0 (V_CursorSubType . Empno, ^^%rlkj^SubType . Ename, 

V_CursorSubType . Job, V_CursorSubType . HiroJ0iaf!~^ / + -»V_PayRollDept30 . EmpExpr, 
V_CursorSubType . Sal, V_CursorSubType . c4miL^^3 ayRollDept30 . GrossSal ) ; 

81 ELSE 

8 2 IF V_CursorSubTypV. Deptno = 4 0 

83 THEN iptu 

8 4 V_PayRol^A^t^8 . EmpExpr : = 

TRUNC ( (MONTHS_BETWEEN (SYSDATK 4 %Lj3CpsorSubType . HireDate) / 12) ) ; 

85 V Ba vfio tjLDitpti 0 . GrossSal : = V_CursorSubType . Sal + 

NVL ( V_CursorSubType . Comm, 

INfelV^ INTO 
f 1 D e p 1 4 0 

no, Ename, Job, HireDate, EmpExpr, Basic, 

89 a .^ALUES 

90 \ (V_CursorSubType . Empno, V_CursorSubType . Ename, 

V_Cii rsorSiib|#^^ V_CursorSubType . HireDate, V_PayRollDept4 0 . EmpExpr , 

V_CursorSub^roe\5a?, V_CursorSubType . Comm, V_PayRollDept40 . GrossSal) ; 

91 V END IF; 

92 + + O" _ END IF; 

93 jA+WInD IF; 

94 f ENp IF; 

|^^^SbkCH EmpDeptwisePayroll INTO V_CursorSubType; 

^9 $ f fcND LOOP; 

Ja97^ COMMIT; 

■$. ?8 CLOSE EmpDeptwisePayroll; 

99* END; 

SQL> / 



86 

87 

88 

Commission, GrossSi 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



PL/SQL procedure successfully completed. 



SQL> COLUMN EmpNo FORMAT 9999 
SQL> COLUMN Ename FORMAT A 8 
SQL> COLUMN Job FORMAT A1 0 
SQL> COLUMN EmpExpr FORMAT 99 
SQL> COLUMN Commission FORMAT 9999 
SQL> COLUMN GrossSal FORMAT 99999 
SQL> SELECT * 

2 FROM PayrollDeptlO; 



EMPNO ENAME 
GROSSSAL 



7839 KING 
5000 

7782 CLARK 
2450 

7934 MILLER 
1300 



HIREDATE EMPEXPR 



JOB 



PRESIDENT 17 -NOV- 81 
MANAGER 09-JUN-81 



CLERK 



SQL> SELECT * 

2 FROM PayrollDept20; 



EMPNO ENAME 
GROSSSAL 



JOB 



7876 ADAMS 
1100 

7788 SCOTT 
3000 

7369 SMITH 
800 

7902 FORD 
3000 

7566 JONES 
2975 + + 

SQL>^ cl~ ~5cr 

D 

file afiedt.buf 




23- JAN- 8 2 




h l 2 + 4 JAN- 8 3 


31 


1100 


*0 9-DEC-82 


31 


3000 


17-DEC-80 


33 


800 


03-DEC-81 


32 


3000 


02 -APR- 81 


33 


2975 




1 DECLARE 

2 V_Empno Emp . Empno%TYPE NOT NULL := SEnterEmpNo; 

3 V_Ename Emp . Ename%TYPE NOT NULL := UPPER ( ' SEnterEname ' ) ; 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 



:= ' &EnterHireDate 



V_Deptno Emp . Deptno%TYPE NOT NULL := &EnterDepto; 
V_Job Emp . Job%TYPE NOT NULL := UPPER (' SEnter Job ' ) 
V_MGR Emp . MGR%TYPE := SEnterMGRNo; 

V_HireDate Emp . HireDate%TYPE NOT NULL 
V_Sal Emp . Sal%TYPE NOT NULL := &EnterSal; 

V_Comm Emp . Comm%TYPE := SEnterComm; 

V_MGRName Emp . Ename%TYPE ; 

BEGIN 
DECLARE 

V_CurrentDeptno Dept . Deptno%TYPE; 

CURSOR DeptCursor 
IS 

SELECT Deptno 
FROM Dept 

WHERE Deptno = V_Deptno; 

BEGIN 

OPEN DeptCursor; 

FETCH DeptCursor INTO V_CurrentDeptno ; 

IF Dept Cur sor%FOUND 
THEN 

DECLARE 

V_CurrentMGR Emp . MGR%T 

CURSOR EmpCursorMGR 
IS 

SELECT DISTINCT MGR 
FROM Emp Ha 

WHERE MGR = V_MGR^ lpJt| 

BEGIN + jXkS 

OPEN EmpCurs^ll^?\, +J 

FETCH EmpCursfckMg^. INTO V_CurrentMGR; 





IF EmpCursq^^^^^OUND 
THEN 

Dl 

. V_Ci^#ent Job 

V 



cio 

jECLARE 



Emp. Job%TYPE; 



URSOR EmpCursorJOB 



Job 



LECT DISTINCT 
FROM Emp 

WHERE Job = V_Job; 

BEGIN 

OPEN EmpCursorJOB; 

FETCH EmpCursorJOB INTO V_Current Job; 

IF EmpCursor JOB%FOUND 

THEN 

DECLARE 

V_CurrentEmpno Emp . Empno%TYPE ; 
CURSOR EmpCursorEMPNO 
IS 
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52 SELECT Empno 

53 FROM Emp 

54 WHERE Empno = V_Empno; 

55 BEGIN 

56 OPEN EmpCursorEMPNO; 

57 FETCH EmpCursorEMPNO INTO V_CurrentEmpno ; 

58 IF EmpCursorEMPNO%NOTFOUND 

59 THEN 

60 INSERT INTO Emp (Empno, Ename, Dept 

MGR, HireDate, Sal, Comm) 

61 VALUES (V_Empno, V_Ename, V_De 
V_MGR, V_HireDate, V_Sal, V_Comm) ; 

62 SELECT Ename, Deptno, Job, 



Sal, Comm INTO V_Ename 
V_Comm 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 



V_Deptno, V_ Job , V_MGR, V_H*reDat-i%, V_Sal, 




reDate, 






1 









+j 



Employee Record Inserted ^ a^\ ,ai^lows 



FROM Emp 

WHERE Empno = V_Empnf^r 
IF V_MGR IS NOT N UI^ TM 

SELECT V_MGRName 

FROM Em^4- + + + + W 
WHERE V_MGR; 

ELSE i tr> p 

SEffS^T ETfSme INTO V_MGRName 
FROM Ofcp 

+ t fffttERE MGR IS NULL; 

ENn^JfL > 

tffi l^ iOTPUT . PUT LINE ('The Details of New 



+ <\ 



C9kt«- .OUTPUT. PUT_LINE ( 'The Employee Numbei 



75 

' | | V_Empno ) ; 

7 6 T +y^DBMS_OUTPUT . PUT_LINE ( ' The Employee Name : 

' | | INITCAP (V_Ename)dT l ; fj V 



77 



J 



DBMS_OUTPUT . PUT_LINE ( ' The Department Number 
DBMS_OUTPUT . PUT_LINE ( ' The Designation : 



' 1 1 V -^ F 



o 



: ' | | V_Deptno) ; * 

78 ^ \ 

' | | INITCAP 

79 + ±f J + DBMS_OUTPUT . PUT_LINE ( ' The Manager Number : 

' | | NVL (T^CHA»#_MGR) , ' "Cannot be Managed" ' ) II ' , and his Name is : 

j) ; 

80 DBMS_OUTPUT . PUT_LINE ( ' The Joining Date : 

' | | TLem (V_HireDate, 'FMDD, Month Year' ) ) ; 

DBMS_OUTPUT . PUT_LINE ( ' The Basic Salary : 

7 I (O kCAT ( ' INR ' , TO_CHAR(V_Sal, ' 99, 999.99' ) ) ) ; 

JTRl 4 DBMS_OUTPUT.PUT_LINE ( 'The Commission Earned 

| | NVL (TO_CHAR (V_Comm) , ' No Commission . . . Sorry ! ' ) ) ; 

83 ELSE 

84 DBMS_OUTPUT . PUT_LINE ( ' The Given Information 
For Employee Number ' | |V_Empno| | ' is Already Available. ' ) ; 
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JO&*YOU for Using the Data 



VVV 




e; 



+ +, > 



cs 



85 DBMS_OUTPUT.PUT_LINE ( 'Employee Numbers 
Cannot Be Duplicated.'); 

86 DBMS_OUTPUT . PUT_LINE ( ' Your INSERT 
Transaction has been Cancelled, Currently.'); 

87 DBMS_OUTPUT . PUT_LINE ( ' Thank You for Using 
the Data Insert Services ...'); 

88 RETURN; 

89 END IF; 

90 CLOSE EmpCursorEMPNO ; 

91 END; 

92 ELSE 

93 DBMS_OUTPUT . PUT_LINE ( ' The Given If 

Designation ' | | V Job | | ' is Not Recognized.'); 

94 DBMS_OUTPUT . PUT_LINE ( 'Please Itegis^rThe 

Designation With The Administrator. ') ; . * + + + 

95 DBMS_OUTPUT . PUT_LINE ( ' Then Th eft. TjV Data Insert . ' ) ; 

96 DBMS_OUTPUT . PUT_LINE ( ' Your^^S^RT Transaction has 
been Cancelled, Currently . ' ) ; 

97 DBMS_OUTPUT.PUT_LINE*' ' 

Insert Services ...'); dp d 

98 RETURN; 

99 END IF; 

100 CLOSE EmpCursor JOB ; 

101 END; 

102 ELSE 

103 DBMS_OUTPUT . PUI^n(0^( ' The Given Information For Manager 
Number ' | | V_MGR | | ' is Not Reftocj|j(#Bj^t. ') ; 

104 DBMS OUTPU a^ ^jT. <g[NE f 'Please Register The Manager With 

The Administrator. ' ) ; ^ d^ J 

105 ~ 

106 DBMS PUT_LINE ( ' Your INSERT Transaction has been 
Cancelled, Current lyt *) } f 

107 DBM#%JTPUT.PUT_LINE ( 'Thank You for Using the Data 
Insert Services .*.') ;+# r 

108 ^%ETURN; 

109 

110 0^5 SI EmpCursorMGR; 

in enS^t 

112 . 

113 XChAbMS_OUTPUT.PUT_LINE ( 'The Given Information For Department 
Number V_Deptno | | ' is Not Recognized. ' ) ; 

l_|^%rH DBMS_OUTPUT.PUT_LINE ( 'Please Register The Department Number 
^ilfriM'he Administrator. ') ; 

DBMS_OUTPUT . PUT_LINE ( ' Then Try The Data Insert.'); 

\LT6 DBMS_OUTPUT . PUT_LINE ( ' Your INSERT Transaction has been 

ancelled. Currently.'); 

117 DBMS_OUTPUT . PUT_LINE ( ' Thank You for Using the Data Insert 

Services ...'); 



DBMS_OU^CuN^UT_LINE ( ' Then Try The Data Insert.'); 
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118 

119 

120 
121 
122 * 
SQL> 



for enterempno 
for enterename 
for enterdepto 
for enterjob: 



7935 
SURESH 
30 
CLERK 



RETURN; 

END IF; 

CLOSE DeptCursor; 

END; 

END; 

/ 

Enter value 
Enter value 
Enter value 
Enter value 
Enter value for entermgrno: 7698 
Enter value for enterhiredate : 18 -NOV- 14 
Enter value for entersal : 2000 
Enter value for entercomm: NULL 

The Details of New Employee Record Inserted are 
The Employee Number : 7935 

The Employee Name : Suresh 

The Department Number : 30 
The Designation : Clerk 

The Manager Number : 7698 , and his Name 

The Joining Date : 18, November Twenty F 
The Basic Salary : INR 2,000.00 
The Commission Earned : No Commissiofltn 



PL/SQL procedure successfully 




SQL> / 

Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
The Given 
Please Regi 
Then TryJIhe 
Your \ N 
Thank 




cc^rff^^d. 

♦ G.C***! * 

enterempno : 
enteren^m^tSu^ESH 
enterdepl^ : 
enter 

en^rmq^^l 7 698 
enSylMredate: 18 -NOV- 14 
nterfBl: 1500 
tercomm: NULL 

on For Department Number 60 is Not Recognized, 
h# Department Number With The Administrator . 
a Insert. 

Transaction has been Cancelled, Currently, 
r Using the Data Insert Services . . . 



for 

for 

for 

for 

for 

for 

for 

fo 




)L5" / 

:er value 
;er value 
Enter value 
Enter value 



rocedure successfully completed. 



for enterempno: 7936 
for enterename: SUKESH 
for enterdepto: 30 
for enterjob: SRCLERK 
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Enter value 
Enter value 
Enter value 
Enter value 



for entermgrno: 7698 
for enterhiredate : 18 -NOV- 14 
for entersal : 2000 
for entercomm: NULL 



The Given Information For Designation SRCLERK is Not Recognized. 
Please Register The Designation With The Administrator. 

Then Try The Data Insert. 

Your INSERT Transaction has been Cancelled, Currently. 

Thank You for Using the Data Insert Services . . . 



PL/SQL procedure successfully completed. 



SQL> cl scr 



SQL> ROLLBACK; 



Rollback complete. 



SQL> cl scr 



SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 

3 

4 

5 

6 
7 



Emp . Deptno%TYPE) 



Sal 



CURSOR DeptCursor 
IS 

SELECT Deptno, Dname 
FROM Dept 
ORDER BY Deptno; 

CURSOR EmpCursor (Vj 
IS 

SELECT Ename, JtT ob. THj reDate, 

FROM Emp 

WHERE Deptno = Vi^Peptno; 

V_Cur rDept^Doj Dept . Deptno%TYPE; 
V_Curj^Mflie T -ftEpt .Dname%TYPE; 

V_E n aiaEm . Eirame%TYPE; 

V_Job Em^fJob%TYPE; 

« (D Emp . MGR%TYPE ; 

V^HIttafiate Emp . HireDate%TYPE ; 

LVS&-1 Emp . Sal%TYPE; 

^ft-WlN 

n 4~* 2 Cf ft)PEN DeptCursor; 

V 1 L OO p 

1 22 FETCH DeptCursor INTO V_CurrDeptno, 

9 23 EXIT WHEN DeptCursor%NOTFOUND ; 

24 DBMS_OUTPUT.PUT_LINE ( 'Department Number 
Department Name : ' | | V_CurrDname) ; 




10 

11 

12 

13 

14 

15 

16 

17 

18 



V_CurrDname ; 



I | V_CurrDeptno | | 
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V_Job, V_Hi rebate, V_Sal; 



I I V_ Job | | 



25 IF EmpCursor% ISOPEN THEN 

26 CLOSE EmpCursor; 

27 END IF; 

28 OPEN EmpCursor (V_CurrDeptno) ; 

29 LOOP 

30 FETCH EmpCursor INTO V_Ename, 

31 IF EmpCursor%FOUND THEN 

32 DBMS_OUTPUT.PUT_LINE (V_Ename | | 

' I I V_Sal) ; 

33 ELSE 

34 DBMS_OUTPUT.PUT_LINE ( ' ****End of Employees, 
' I I V_CurrDeptno II'.'); 

35 END IF; 

36 EXIT WHEN EmpCursor%NOTFOUND; 

37 END LOOP; 

38 IF EmpCursor% ISOPEN THEN 

39 CLOSE EmpCursor; 

40 END IF; 

41 END LOOP; 

42 IF EmpCursor% ISOPEN THEN 

43 CLOSE EmpCursor; 

44 END IF; 

45 CLOSE DeptCursor; 

46* END; 

SQL> / V%v 

Department Number : 1 0 DepajptmtntS Name 

KING PRESIDENT 17 -NOV- 81 50t0 1^**-^ 

CLARK MANAGER 0 9-JUN-81 24 +r 
MILLER CLERK 23-JAN-82 13 M* T \ +j 

* * * *End of Employees , in J+Pe^.rtment : 1 0 . 
Department Number : 2 0f*j+ '*B^partment Name 
JONES MANAGER 02-|§R-8 097 5 
FORD ANALYST 03-DECt*^ 3000 
SMITH CLERK 1 7-QEC-8£T8 0 0 
SCOTT ANALYST _^9tDEC-82 3000 
ADAMS CLERK|f M J 1 2f3%-8 3 1100 

* * * *End of EfttplcjyeSs , in Department 

-NT. . J.M.I O 




ACCOUNTING 



RESEARCH 



Departme 
BLAKE* 





NumiCr : 3 0 Department 

ER 01-MAY-81 2850 
•iS^aCMAN 28-SEP-81 1250 
SALESMAN 2 O-FEB-8 1 1600 
ALES MAN 08-SEP-81 1500 
CLERK 03-DEC-81 950 
SALESMAN 22-FEB-81 1250 

Employees, in Department 
• D epartment Number : 40 Department 

****End of Employees, in Department 



20 . 

Name 



SALES 



?<ARl 

\*&** End of 



: 30. 
Name 
: 40. 



OPERATIONS 
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PL/SQL procedure successfully completed. 
SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 



10 

11 

12 





DECLARE 

CURSOR MyEmpCursor (P_DeptNo Dept . Deptno%TYPE ) 

IS 

SELECT EmpNo, Ename, Mgr, Sal 
FROM EMP 

WHERE Deptno = P_DeptNo 
ORDER BY Empno; 

CURSOR MyDeptCursor 
IS 

SELECT DISTINCT DeptNo, Dname 
FROM DEPT; 

IRowno NUMBER :=0; 

13 V_DeptNo Dept . Deptno%TYPE; 

14 V_DNAME Dept . Dname%TYPE; 

15 V_EMPNO Emp . Empno%TYPE ; 

1 6 V_ENAME Emp . Ename%TYPE ; 

V_MGR Emp . Mgr %TYPE ; 

V_SAL Emp . Sal%TYPE; 

BEGIN 

OPEN MyDeptCursor; 

LOOP 

FETCH MyDeptCu r’^NTO V_Deptno, V_Dname ; 

EXIT WHEN MyD# Iprsor %NOTFOUND OR MyDeptCursor%NOTFOUND IS 



; 





Cy 



('Displaying Employees of ' | | INITCAP (V_Dname) | | 

' Department . ' ) ; 

2 6 OPE^I%EmpCursor (V_Deptno) ; 

2 7 

28 \FEJCH\lyEmpCursor INTO V_Empno, V_Ename, V_Mgr, V_Sal; 

29 S^TT WHEN MyEmpCursor%NOTFOUND OR MyEmpCursor%NOTFOUND IS 

NULL;. i ( . 

30 D^&,®6tPUT.PUT_LINE (RPAD (V_Empno, 8) | | RPAD (V_Ename, 

12) |fRPA&(V_Sal, 8)|| RPAD (V_Mgr, 8)); 

3Tlu t IRowno := IRowno + 1; 

'3 f f END LOOP; 

°3 DBMS_OUTPUT . PUT_LINE (' Number of Employees Scanned and Processed 

e : '|| iRowNo) ; 

34 CLOSE MyEmpCursor; 

35 END LOOP; 

36 CLOSE MyDeptCursor; 
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37* END; 

SQL> / 

Displaying Employees 



of Accounting Department 



7782 


CLARK 


2450 


7839 


7839 


KING 


5000 




7934 


MILLER 


1300 


7782 


Number 


of Employees 


Scanned 


and Processed are 


Displaying Employees 


of Operations Department 


Number 


of Employees 


Scanned 


and Processed are 


Displaying Employees 


of Research Department. 


7369 


SMITH 


800 


7902 


7566 


JONES 


2975 


7839 


7788 


SCOTT 


3000 


7566 


7876 


ADAMS 


1100 


7788 


7902 


FORD 


3000 


7566 



Number of Employees 
Displaying Employees 



Scanned and Processed are 
of Sales Department . 



6 rows updated. 



SQL> ROLLB 



Rollback xo mpJfte 
SQL> cl+ + 3«rfr 




7499 


ALLEN 


1600 


7698 


7521 


WARD 


1250 


7698 


7654 


MARTIN 


1250 


7698 


7698 


BLAKE 


2850 


7839 


7844 


TURNER 


1500 


7698 


7900 


JAMES 


950 


7698 


Number 


of Employees 


Scanned 


and 



PL/SQL procedure successfully 



SQL> cl scr 

SQL> UPDATE Emp 

2 SET Sal = Sal 

3 WHERE Deptno 



O 



^rifty file afiedt 

Sr 



, buf 



SELECT ROWID , Ename, Sal 
2 FROM Emp 
3* WHERE Deptno = 30 
SQL> / 
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ROWID 


ENAME 


SAL 


AAAOKYAAEAAAAHUAAB 


BLAKE 


2850 


AAAOKYAAEAAAAHUAAE 


MARTIN 


1250 


AAAOKYAAEAAAAHUAAF 


ALLEN 


1600 


AAAOKYAAE AAAAHUAAG 


TURNER 


1500 


AAAOKYAAEAAAAHUAAH 


JAMES 


950 


AAAOKYAAE AAAAHUAAI 


WARD 


1250 


6 rows selected. 






SQL> DECLARE 







2 CURSOR SalCursor 

3 IS 

4 SELECT Sal 

5 FROM Emp 

6 WHERE Deptno =30 

7 FOR UPDATE OF Sal NOWAIT; 

8 BEGIN 

9 FOR EmpRec IN SalCursor 

10 LOOP 

11 UPDATE Emp 

12 SET 

13 Sal = Sal + (EmpRec. Sal 

14 WHERE CURRENT OF SalCursori, t 

15 END LOOP; 

16 END; 

17 / 




PL/SQL procedure succ 

SQL> SELECT ROWID 

2 FROM Emp a 

3 WHERE Dept^ioi= 30; 




ompleted. 



ROWID 



AAAOKfcZ 

aaaok; 




X* 



v 



RENAME 



SAL 



HUAAB BLAKE 
HUAAE MARTIN 
AAAHUAAF ALLEN 
AAAAHUAAG TURNER 
PpfAAEAAAAHUAAH JAMES 
AOKYAAEAAAAHUAAI WARD 

rows selected. 




5985 

2625 

3360 

3150 

1995 

2625 



SQL> SPOOL OFF 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



